Voorbeeld van de instructie GoSub...Return

In dit voorbeeld wordt gebruik gemaakt van GoSub om een subroutine binnen een procedure Sub aan te roepen. De instructie Return zorgt ervoor dat de uitvoering direct na de instructie GoSub wordt hervat. De instructie Exit Sub wordt gebruikt om te voorkomen dat de besturing per ongeluk in de subroutine overloopt.

Sub GosubDemo()
Dim Num
' Solicit a number from the user.
    Num = InputBox("Voer een positief getal in dat gedeeld moet worden door 2.")
' Only use routine if user enters a positive number.
    If Num > 0 Then GoSub MyRoutine    
    Debug.Print Num
    Exit Sub    ' Use Exit to prevent an error.
MyRoutine:
    Num = Num/2    ' Perform the division.
    Return    ' Return control to statement.
End Sub    ' following the GoSub statement.